home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / wind chill calcu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  67 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 gosub 60000
  3. 11 print"[147][154] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  4. 12 [153]"cont (NULL)   for    (NULL)right$(NULL)str$ lenleft$right$(NULL)(NULL) lenatn(NULL)len(NULL)(NULL)atn(NULL)(NULL)(NULL)        cont(NULL)
  5. 13 print"[154] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  6. 15 :
  7. 20 [153]"(NULL)hat is the (NULL)emp in asc print#:";:[141] 60500:t[178][197](b$)
  8. 30 [153]"(NULL)hat is the wind velocity in (NULL).(NULL).left$":[153]"(NULL)elocity print#:";
  9. 35 [141]60500:v[178][197](b$):[139]v[179]0 [167] 10
  10. 40 t1[178]t:v1[178](v[172]1609.35)[173]3600:tc[178]33[171]((t[171]32)[172](5[173]9))
  11. 50 h[178](10.45[170](10[172][186](v1))[171]v1)[172]tc:x[178]h[171]506.784:[139]x[179]0[167]x1[178]t1:[137]70
  12. 60 x1[178]50[171](x[173]12.3):x1[178][181](((x1[172]10)[170]5)[173]10)
  13. 70 [153]"for(NULL)ind lenhill (NULL)emperature = ";x1
  14. 80 [153]"open str$o you wish to calculate another?"
  15. 81 [153]"             (NULL)print#)openes (NULL)(NULL) (NULL)print#)openo"
  16. 82 [161]a$:[139]a$[178]""[167] 82
  17. 85 [139]a$[178]"y"[167] 11
  18. 86 [139]a$[178]"n"[167] 100
  19. 87 [137] 82
  20. 100 [153]"        (NULL)(NULL)right$(NULL) : atnre you sure?
  21. 101 print"               [217][152])es [207][210] [206][152])o
  22. 102 [161]a$:[139]a$[178]""[167] 102
  23. 103 [139]a$[178]"y"[167] 150
  24. 104 [139]a$[178]"n" [167] 11
  25. 105 [137] 102
  26. 150 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  27. 151 [139] er[179][177]63 [167] [153]"load":[128]
  28. 152 [147]"hello connect",8
  29. 155 [128]
  30. 60000 [143]
  31. 60010 [153]"load"
  32. 60020 [153]
  33. 60030 [153]
  34. 60040 [153]"   listor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  35. 60050 [153]"   {$7d}or{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^list{$7d}"
  36. 60060 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  37. 60070 [153]"   {$7d}{$7d}     pokeL O A D S T A R          {$7d}list{$7d}"
  38. 60080 [153]"   {$7d}{$7d}      print#L O A D S T A R         {$7d}list{$7d}"
  39. 60090 [153]"   {$7d}{$7d}       listL O A D S T A R        {$7d}list{$7d}"
  40. 60100 [153]"   {$7d}{$7d}        L O AcloseD S TcloseA R       {$7d}list{$7d}"
  41. 60110 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  42. 60120 [153]"   {$7d}{$7d}          Presents            {$7d}list{$7d}"
  43. 60130 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  44. 60140 [153]"   {$7d}{$7d}    forWIND CHILL CALCULATOR     {$7d}list{$7d}"
  45. 60150 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  46. 60160 [153]"   {$7d}{$7d}     contby Billy D. Mullins      {$7d}list{$7d}"
  47. 60170 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  48. 60180 [153]"   {$7d}{$7d}          list(C) 1987            {$7d}list{$7d}"
  49. 60190 [153]"   {$7d}{$7d}                              {$7d}list{$7d}"
  50. 60200 [153]"   {$7d}/{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}explist{$7d}"
  51. 60210 [153]"   /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp"
  52. 60220 [153]
  53. 60230 [153]"  verifyPress Any Key When Ready to Continue"
  54. 60240 [153]
  55. 60250 [153]"";
  56. 60255 [161]a$:[139]a$[178]""[167] 60255
  57. 60256 [142]
  58. 60500 b$[178]"":[153]"to";
  59. 60501 [129]x[178]1[164]10
  60. 60505 [161]a$:[139]a$[178]""[167] 60505
  61. 60508 [139]a$[178][199](20)[175]x[177]1 [167] x[178]x[171]1:b$[178][200](b$,x[171]1):[153]"cmdcmd  cmdcmdto";:[137]60505
  62. 60510 [139] a$[178][199](20) [167] 60505
  63. 60511 [139]a$[178][199](13) [167] [153]"cmd ":[142]
  64. 60512 [139]a$[179]"0"[176]a$[177]"9"[167] 60505
  65. 60515 [139] x[177]3 [167] 60505
  66. 60520 b$[178]b$[170]a$:[153]"cmd"a$;:[153]"to";:[130]
  67.